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INTRODUCTION 


This specification describes the FORTRAN77 language compilers 
based on Revision B of the Burroughs FORTRAN?7?7 Corporate 
Standards which produces FORTRAN?7Z S~-Language code for execution 
on 81800/81700 systeas. 


RELATED PUBLICATIONS 


TITLE | NUMBER 
FORTRAN??? Corporate Standard 1283 0048 
FORTRANZ7 S~mLanguage 2222 2749 


~ BiB800/B1700 FORTRAN?7?7 Reference Manual 
Compiler Control Images 1955 2959 
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GENERAL DESCRIPTION 


LANGUAGE 


The language acceptable as input to this compiler is based on the 
Burroughs FORTRAN7?/ Corporate Standard. 


INPUT 


SOURCE INPUT FILES 


The comptler uses one or sore source input files to make 4a 
completes updated FORTRAN?77 prograg. Punched cards» disks» 
diskpacks» or magnetic tape can be specified as source tanguage 
input media for a single input file cr for a saster file» If two 
input files are used» the compiler rerges them on a sequence 
number basis 


Records of input files are 80 bytes in length. Default blocking 


1s used for alt input files. The fermat of each 80 byte record 
is defined in the FORTRAN7?7 Corporate Standard. 


SOURCE LIBRARY FILES 


FORTRAN/7?7 source text which is cosgmcen to several programs may be 
included in a program by use of a SINCLUDE (CCI). A Library file 
is inctuded in the logical progras to be cogpiled but not in a 
new source Lancsuage file if one is created unless SINCLNEW is 
also specified. 


ICM LIBRARY FILES 


FORTRAN77 ICMs CIndependently Cempited Modules) previously 
compiled by the FORTRAN77 compiler and saved in an ICM Library 
file may be inctuded into the logical program by use of the CCI 
option S$USEICM. 


INTRINSIC LIBRARY FILES 


Intrinsics from the ICM Library file FORTRAN77/INTRINSICS are 
automatically bound into the Logical program as needed. A 
different Intrinsic CICM) Library file may be specified by the 
CCI option SINTRINSICS~ 


ra 


itis ie sins ep aa Sas a wih Calbia 
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OUTPUT 


NEW SCURCE LANGUAGE FILES 


An updated master symbolic output file» acceptable as input to 
the FCRTRAN77 Compilers may be created by use of the Control Card 
Image (CCI) option NEW. 


NEW ICM LIBRARY FILES 


A new ICM tUibrary files acceptable as input to the FORTRAN77 
compilers» may be created by use of the CCI option SICM. ALL ICMs 
included through the CCI cption USEICM or correctly compiied by 
the compiler from input source isages» and which have not been 
deteted by the CCI option SREMOVEICH will be included in the new 
ICM ttbrary file Ceven if they are not bound into the togicatl 
prograa). Separate ICMs are generated for each program unit and 
entry pointe : 


OUTPUT LISTINGS 

Listings provided by this compiter include: 
Diagnostic messages 
Input source Language (may be irhibited) 


Indication of inserted» replacec» or deleted lines 
Suamary information 


Cross reference Listing Cupon request) 


GENERATED CODE 


The object code generated is written to disk- 


ia ti atti 
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LABEL EQUATE INFORMATION 


Internal 
Filenasze 


CARD 
SOURCE 
NEWSOURCE 


LINE 


COCE 


ERRORS 
ICM 


INTRINSICS 


External 
Filename 


CARD 
SOURCE 
NEWSOURCE 


LINE 
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ERRORS 


IcM 
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Function 


Scurce or update input. 


Default device 


Scurce prograa 
Default device 


Updated source 
Default device 


Printed output 
Defautt device 


1s card reader. 


inpute 
is diske 


program output. 
1s diske 


listing. 
1S printer. 


GCbhject code file. 


Printed diagnostic Listinge 


Default device 


1s printer. 


Independent Code Modute 
Library Outpute. 


FORTRAN77/INTRINSICS Intrinsic Library input. 
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DEBUGGING AND DIAGNOSTIC FACILITIES 
The fellowing compile time facilities are available: 
ha Syntex error messages and warnings are printed after 
the line in error. A "t" indicates location of the 
possibile error. 
E. Various informational messages are printed. 


C. No code is generated if syntax errors are presente 


All error messages are specific and are sufficient to determine 
the cause of the error. 


4-1 
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COMPILER LIAITS 


The following is a tlList of all currently recognized compiler 
limits. 


1023 Bytes Data dictionary entries. 

f Bytes Levels of subscripting- 

1023 Bytes Code segments. 

3712 Bytes Maximus Record size that way be declared in a 


a file statement. 


Pee Una 
Ld 
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COMPILER CONTROL IMAGES CCCI) 


The CCI C$ in column 1) is used to control certain options which 
are availabite during the coapilation processe 


Any number of CCIs may be used. With the few exceptions (noted 
separately) options may appear anywhere in the source files and 
becomse active cr inactive at that pceint.e 


A Boolean option may be “SET™ ons “RESET” of f- 


A stack is associated with each Soclean option. Whenever a 
Bootean option is SET or RESET its old value is pushed into a 
stack and may te retrieved for Later use. 


"“CLEAR™ and "POP" are aiso used to cecntrot the vatue of Booleans. 


CCI OPTIONS 


The following CCI options have been selected from those speci fied 
in the Compiler Control Images Standards. 3 


SET <b optten> 
Sets <b option> to *0N* 


<b optian> 
Sets <b opttion> to *0N" 


RESET <b optian> 
Sets <b option> to “OFF” 


POP <b option> 
Sets <b aption> to a previously stacked vatue 


CLEAR : 

Sets all boolean options to “QFF"* except MERGE ands if 
NEWSOURCE is opens» NEW. All creviousty stacked values are 
discardede | ; 


A OA Ret RL AE ee! ak oA na me: 
sabes tierthnat (et cbd cee Weems yeaa tea 
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<b option> ~- BOOLEAN OPTIONS 


AUTGBIND [<aeainline>] 


Cefault = sete Causes ICMs to be bound together into a 
codefile. <mainline> specifies which <mainline> program 
unit ts to be used Cbhy default» the first one compiled is 
used). 
DELETE 


Causes the compiler to ignore source language images and 
CCiIs from the secondary CMERGEed) input Cdisk) until 
disabled. Images are ignored for compilation purposes = and 
ere not made part of a new output SOURCE file. 


DOUBLE 

Causes the output Listing to be printed tn a double~spaced 
forsat.. 

ERRORLIST 

Default = set tf SW 1=1 else reset. Causes syntax error 


messages and warning messages to be Listed separately to 
file ERRORS.} | 


ICN (<filenasze>] 

Default = reset. Creates an ICM library file consisting of 
those ICMs etther compiled cr inserted via CCI option 
USEICM. <filename> will be the name of the ICM Library 
created if thts CCI option is processed prior to inclusion 
of any ICM*s. 


INCLNEW | 

Default = reset. Causes those input source images inciuded 
by the CCI option INCLUDE to Ee output to NEWSOURTE. ccIi 
cption NEW must also be set for this option to be effective. 


LIST 

Default = sete Creates an output listing of the source 
image input with error and warning messages inserted where 
required. This option is SET en by default and must be 
RESET if the Listing is not wanted. 


LISTDELETED 
When LIST option is set» causes LISTing cof DELETED tmages. 


LISTDOLLAR | 
When LIST option is set» causes LISTing of CCIse This 
opticn is set on by default. 


LISTINCL — | | 
Default = reset.»j When LISTINCL option is sets causes 
LISTing of INCLUDEd images. 


+ ee Eero eae et 
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LISTOMITTED 7 


When LIST option is sets» causes LISTing of OMITTED images. 


LISTP 
Causes the compiler to print a Listing of images from the 
prisary CCARD) source file as they are read. 


MAP : 
Default = resete Causes the compiier to inctude relative 
eddresses of allocated variables in the program listing. 


MERGE 

Causes a secondary Cusually disk) file to be opened by the 
compiler and merged with the primary (€Ccard) file. Once SET» 
this option cannot be RESET» PCP*eds oar SET again. CLEAR 
dees not affect this option. | 


NEW 

Creates a NEW output source fite with changes» if any» 
entered through use of the MEREE option and DELETE opttons- 
Compiler Control Images are not included itn the new fite 
unless they are marked with an additional $ sign in column 
2e Gnece SET» this option way net be RESETe+ POP*ed» or SET 
againe CLEAR may reset the NEW option but only if no 
records have yet been written. 


NOBOUNDS 

Default = reset. Causes compiler to generate code that will 
rot check variable subscripts fcr validity.’ This option may 
not be SET» RESET or POPed between program unitse 


OMIT 

Causes the comptier to ignore source language images and 
Compiler Controt Images from the secondary CMERGE*d) tnput 
Cdisk) until disabled. Images are ignored for coapitation 
purposes but they are included in a new cutput SOURCE ftle» 
if one is being produced. 


SEQCHECK 


Causes the compiler to check for sequence errors and print a 
warning message for each sequence error detected. 


SEQUENCE | 

Causes the compiler to assign new sequence numbers to the 
source Language images accepted fcr compilation or inclusion 
in a new source file. Sequence numbers hegin with the value 
cf the secuence base integer asscciated with this option. 
If the sequence base integer is not specifieciated it begins 
at 00000100. Sequence numbers are incremented by the value 
cf the sequence increment irteger associated with this 
option. If the sequence incregent intescer is not specified 
sequence numbers are incrementec by 100. 


SUMMARY 


574 
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Causes the compiler to print a summary of the information 
about the compilation norgatty included as part of a 
LISTing« Needed when LIST-is RESET. 


XREF 
Causes the compitier to print a crosscreference Listing for 
the source language accepted for cospilation. Unless 


Ctherwise specified» cross~reference namges are associated by 
line numtere | 


XSEQ 
Used in conjunction with the XREF option» causes 
crossmreference names to be associated by sequence number. 
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MISCELANEQUS COMPILER CONTROL OPTIONS 


integer | | 
Associated with the SEQUENCE options the integer is assigned 
to the sequence base. | | 


+integer . 
Associated with the SEQUENCE options the integer is assigned 
to the sequence increment. 


DYNAMIC = integer 

integer = size of dynamic semory to be allocated to the 
codefile in 4-byte word unitse Default = totat required for 
all data pages to be present concurrently-«- 


ERRORLIMIT = integer 
integer specifies number of errors found before compiter 
ceases to report further errors. Default = no Limit. 


INTERPRETER = <filenane> 

<filename> specified which interpreter is to be used with 
the codefile generated. Default = *"FORTRAN77/INTERP2M™ on 
the diskpack where the coapiler is located. 


INTRINSICS = <fitenase> 


<filename> specifies which ICM Library file contains’ the 
FORTRANT7 system intrinsicse- Default = 
"FORTRAN77/INTRINSICS* on the diskpack where the compiler ts 
locateds 


INCLUDE <filenaze> (<seqri> {[- <seqr2>]} | 
Include those records fros <¢filenasge> specified by the 
sequence range <seq-ri> (Cdefault=first record) to <seaq~2> 
Cdefault=last record) at this paint in the compilation. 


OPTIMIZE £€ = <nusber> 1 


Default = 1. If OPT=0» Line number s~ops are included in 
the code compiled» thus any duspfile generated will reftect 
the. line nugber being executed when the error occured. If 
CPT > 0» the tine number s~ops are suppressed. No other 


optimization is currently availzble. 


PAGE. ; 
If a LIST is being produced» causes the compiler to skip to 
the top of the next page. This option 1s reset 


automaticatly as soon as it is used. 


REMOVEICM <ica-tist> 

<jcacrlist> is a tist of ICMs te be deteted Cfrom the set of 
ICMs currently compiled or inserted via USEICM) to avoid 
multiple ICMs with the same name. 


. ” , 
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<icawlist> may either be a list of ICMs or "=" meaning atl 
ICMs in the ICM Library <filenaze> to be used in the current 


compilation or to 
teing created. 


VOID €<seq>] 


Allowed only in primary (Ccard) 
causes 2 secondary 


imace 


included 


in a new ICM Library file 


file images» this option 
bearing the same sequence 
excluded 


number to be ignored for compilation purposes and 


from the output. new 
specified subsequent 


file» if any. 


gre 


also ignored 


If <seq> is 


a 


secondary Cdisk) file image ts encountered with a sequence 
number value greater than <seq>.- 


OPTIONS FOR USE BY COMPILER DEVELOPMENT PERSONNEL 


Syntax: 


>= DEBUG --<-- SET -eseee ene nnn---2---- 


] i 
Im" RESET =->1 


Semantics: 


1 eS 


Ioo-- 


i 


j a <p 8 


1---- 


ALLOCATE --~--~~ eeses==% 


. ! 
BINDER ------>! 
i 
DUMP =-e----->I 
1 


EMIT -------->1 - 


ICQODE! anaes 
ICODE2 naar: 
LISTBIND eee 
PDT --—---=> 1 
PML ----===="> 


j 


TRACEC ------ >I 


TRACEZ wewnwnmn>! 


Causes the compiter to activate a monitor function. 


ALLOCATE 


Suppresses the step of register atlocation.- 


BURROUGHS CORPORATION | COMPANY CONFIDENTIAL 

COMPUTER SYSTEMS GROUP B1800/B81700 FORTRAN? COMPILER 

SANTA BARBARA PLANT PeSe 2222 2772 CAD 
BINDER 


Causes the binder to took for OCT input. Different binder 
tables are displayed for thcse ICMs specified by the ODT 
inputs 
SIT if SW 1= 2 
CODE if SW 2 = 
DATA if SW 3 = 
TVI aif SW 4= 1 


DUMP 
Creates a dunapfite of the coapiler. 


-_ | EMIT 
a When reset» disables the generation of the ICM. 


ICQDEL 
Causes the LISTing of intermediate code prior to register 
allocation. 


ICODE2 


Causes the LISTing of intersediate code after register 
allocaticne 


LISTBIND 
When reset» suppresses the LISTing generated by the BINDER. 


POT 
When set» causes a LISTing of the dimension tabte following 
each END statenente 


PNL 
When sets» causes a LISTing of NAMELISTs» PIDC and PIDYV tables 
following each END statement. 


PST 
When set» causes a LISTing of the ID table following each 
END statemente 


 TRACEC 
Produces a trace listing of the compiler. 


TRACES 


Produces a delayed trace cf the compiter beginning during 
the thrid passe 
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FILE ATYRIBUTE MODULE DESCRIPTION 


The following file attributes are included from the File Handling 
Standard to augment the FORTRAN7? Corporate Standard. 


BLOCKSIZE = <nuaber> 
<number> represents the number cf bytes per block. 


KIND = <device> 
Valid devices are DISK» PRINTER» PUNCH» READER» ODT» TAPE 
and REMOTE. 


MYUSE = <dir> 
<dir> may by IN» OUT or ID. 


eg 
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FEATURES NOT INCLUDED IN THE 10.0 RELEASE 


$3 and K forsat specifiers. 
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